home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / dev / e / jrhrkrm2.lzh / RKRM_PartTwo / Utility / istr.e < prev    next >
Text File  |  1995-09-20  |  902b  |  40 lines
  1. -> istr.e
  2.  
  3. ->>> Header (globals)
  4. MODULE 'utility'
  5.  
  6. ENUM ERR_NONE, ERR_LIB
  7.  
  8. RAISE ERR_LIB IF OpenLibrary()=NIL
  9. ->>>
  10.  
  11. ->>> PROC main()
  12. PROC main() HANDLE
  13.   DEF butter, bread, ch1, ch2, result
  14.   butter:='B°tervl°°t'
  15.   bread:='Knσckerbr°t'
  16.  
  17.   utilitybase:=OpenLibrary('utility.library', 37)
  18.  
  19.   result:=Stricmp(butter, bread)
  20.  
  21.   WriteF('Comparing \s with \s yields \d\n', butter, bread, result)
  22.  
  23.   result:=Strnicmp(bread, butter, StrLen(bread))
  24.  
  25.   WriteF('Comparing (with length) \s with \s yields \d\n', bread, butter, result)
  26.  
  27.   ch1:=ToUpper($E6)  -> µ ASCII character 230 ae ligature
  28.   ch2:=ToLower($D0)  -> ╨ ASCII character 208 Icelandic Eth
  29.  
  30.   WriteF('Chars \c \c\n', ch1, ch2)
  31. EXCEPT DO
  32.   -> E-Note: C version forgets to close the library!
  33.   IF utilitybase THEN CloseLibrary(utilitybase)
  34.   SELECT exception
  35.   CASE ERR_LIB;  WriteF('Error: could not open utility library\n')
  36.   ENDSELECT
  37. ENDPROC
  38. ->>>
  39.  
  40.